home *** CD-ROM | disk | FTP | other *** search
/ Basic Instinct 2 Press Kit / Basic Instinct 2 Press Kit.iso / pc / main.dxr / Internal_25_XMLReader Parent.ls < prev    next >
Encoding:
Text File  |  2006-03-15  |  21.4 KB  |  516 lines
  1. property PList, pInputText, pNetID, pOK, pFinished
  2. global gXMLReader, gxml, gMasterText, gMaster, gParsedXML2, gTypes, gNotes, gSpriteNum, gNetID, gSound, gNodeWatcher, gMasterNodeText
  3.  
  4. on new me
  5.   pOK = "no"
  6.   pNetID = 0
  7.   pInputText = EMPTY
  8.   return me
  9. end
  10.  
  11. on mMakeXMLInstance me
  12.   gxml = 0
  13.   gxml = new(script("xml.parser"))
  14.   mReadXMLMember(gXMLReader, member("XMLinput", "assets").text)
  15.   mDoGeneralSettings(gXMLReader)
  16.   mDoGallerySettings(gXMLReader)
  17.   mDoSlideShowSettings(gXMLReader)
  18.   mDoVideoSettings(gXMLReader)
  19.   mDoAudioSettings(gXMLReader)
  20.   mDoNotesSettings(gXMLReader)
  21.   mDoSavedSettings(gXMLReader)
  22.   mDoCaptionSettings(gXMLReader)
  23.   mDoPosterSettings(gXMLReader)
  24.   mDoExportSettings(gXMLReader)
  25.   mDoInternalFolders(gXMLReader)
  26.   mDoExternalFolders(gXMLReader)
  27.   mDoGalleries(gXMLReader)
  28.   mDoLogoSettings(gXMLReader)
  29.   mDoGalleryToSummary(gXMLReader)
  30. end
  31.  
  32. on mReadXMLMember me, vXMLText
  33.   gMasterText = vXMLText
  34.   errCode = gxml.parseString(gMasterText)
  35.   PList = gxml.makeList()
  36. end
  37.  
  38. on mDoGeneralSettings me
  39.   gMaster.pGeneralSettings.title = gXMLReader.PList[1][2][2][2][2]
  40.   gMaster.pGeneralSettings.stageColor = gXMLReader.PList[1][2][2][3][2]
  41.   gMaster.pGeneralSettings.url = gXMLReader.PList[1][2][2][4][2]
  42.   gMaster.pGeneralSettings.qtmac = gXMLReader.PList[1][2][2][5][2]
  43.   gMaster.pGeneralSettings.qtpc = gXMLReader.PList[1][2][2][6][2]
  44.   gMaster.pMediumCastLib = gXMLReader.PList[1][2][2][7][2]
  45.   gMaster.pSmallCastLib = gXMLReader.PList[1][2][2][8][2]
  46.   gMaster.pGeneralSettings.presskitid = gXMLReader.PList[1][2][2][9][2]
  47. end
  48.  
  49. on mDoGallerySettings
  50.   gMaster.pGallerySettings.pushpin = gXMLReader.PList[1][2][3][2][2]
  51.   gMaster.pGallerySettings.rectangles = gXMLReader.PList[1][2][3][3][2]
  52.   gMaster.pGallerySettings.blendeffect = gXMLReader.PList[1][2][3][4][2]
  53.   gMaster.pGallerySettings.xyeffect = gXMLReader.PList[1][2][3][5][2]
  54.   gMaster.pGallerySettings.percenteffect = gXMLReader.PList[1][2][3][6][2]
  55.   gMaster.pGallerySettings.percentage = gXMLReader.PList[1][2][3][7][2]
  56.   gMaster.pGallerySettings.xytitle = value(gXMLReader.PList[1][2][3][8][2])
  57.   gMaster.pGallerySettings.pinoffset = value(gXMLReader.PList[1][2][3][9][2])
  58.   gMaster.pGallerySettings.pingraphic = gXMLReader.PList[1][2][3][10][2]
  59.   gMaster.pGallerySettings.blendpercent = value(gXMLReader.PList[1][2][3][11][2])
  60.   gMaster.pGallerySettings.titlelogoeffect = gXMLReader.PList[1][2][3][12][2]
  61. end
  62.  
  63. on mDoSlideShowSettings me
  64.   gMaster.pSlideShowSettings.pushpin = gXMLReader.PList[1][2][4][2][2]
  65.   gMaster.pSlideShowSettings.rectangles = gXMLReader.PList[1][2][4][3][2]
  66.   gMaster.pSlideShowSettings.blendeffect = gXMLReader.PList[1][2][4][4][2]
  67.   gMaster.pSlideShowSettings.xyeffect = gXMLReader.PList[1][2][4][5][2]
  68.   gMaster.pSlideShowSettings.percenteffect = gXMLReader.PList[1][2][4][6][2]
  69.   gMaster.pSlideShowSettings.percentage = gXMLReader.PList[1][2][4][7][2]
  70.   gMaster.pSlideShowSettings.xytitle = value(gXMLReader.PList[1][2][4][8][2])
  71.   gMaster.pSlideShowSettings.pinoffset = value(gXMLReader.PList[1][2][4][9][2])
  72.   gMaster.pSlideShowSettings.pingraphic = gXMLReader.PList[1][2][4][10][2]
  73.   gMaster.pSlideShowSettings.blendpercent = value(gXMLReader.PList[1][2][4][11][2])
  74.   gMaster.pSlideShowSettings.savedbutton = gXMLReader.PList[1][2][4][12][2]
  75.   gMaster.pSlideShowSettings.savebutton = gXMLReader.PList[1][2][4][13][2]
  76.   gMaster.pSlideShowSettings.xyflasheffect = gXMLReader.PList[1][2][4][14][2]
  77.   gMaster.pSlideShowSettings.titlelogoeffect = gXMLReader.PList[1][2][4][15][2]
  78. end
  79.  
  80. on mDoSavedSettings me
  81.   gMaster.pSavedSettings.pushpin = gXMLReader.PList[1][2][5][2][2]
  82.   gMaster.pSavedSettings.rectangles = gXMLReader.PList[1][2][5][3][2]
  83.   gMaster.pSavedSettings.blendeffect = gXMLReader.PList[1][2][5][4][2]
  84.   gMaster.pSavedSettings.xyeffect = gXMLReader.PList[1][2][5][5][2]
  85.   gMaster.pSavedSettings.percenteffect = gXMLReader.PList[1][2][5][6][2]
  86.   gMaster.pSavedSettings.percentage = gXMLReader.PList[1][2][5][7][2]
  87.   gMaster.pSavedSettings.xytitle = value(gXMLReader.PList[1][2][5][8][2])
  88.   gMaster.pSavedSettings.pinoffset = value(gXMLReader.PList[1][2][5][9][2])
  89.   gMaster.pSavedSettings.pingraphic = gXMLReader.PList[1][2][5][10][2]
  90.   gMaster.pSavedSettings.blendpercent = value(gXMLReader.PList[1][2][5][11][2])
  91.   vCount = gXMLReader.PList[1][2][5][12].count
  92.   vTempCount = 0
  93.   vPhotoSprite = 68
  94.   vRectSprite = 27
  95.   vPushPinSprite = 109
  96.   vPosterNum = 0
  97.   vLogoNum = 0
  98.   vType = gXMLReader.PList[1][2][5][12][2][2]
  99.   vXY = value(gXMLReader.PList[1][2][5][12][3][2])
  100.   vPage = value(gXMLReader.PList[1][2][5][12][4][2])
  101.   vSmall = gXMLReader.PList[1][2][5][12][5][2]
  102.   vCastLib = gXMLReader.PList[1][2][5][12][6][2]
  103.   vDownload = gXMLReader.PList[1][2][5][12][7][2]
  104.   vKeyNum = 1
  105.   vTempCount = vTempCount + 1
  106.   vPhotoSprite = vPhotoSprite + 1
  107.   vRectSprite = vRectSprite + 1
  108.   vPushPinSprite = vPushPinSprite + 1
  109.   gNotes.pProductionCastName = vSmall
  110.   vLarge = EMPTY
  111.   add(gMaster.pSummaryList, new(script("Summary Parent"), vTempCount, vType, vXY, vPage, vSmall, vCastLib, vDownload, vPhotoSprite, vRectSprite, vPushPinSprite, vKeyNum, vLarge))
  112.   vType = gXMLReader.PList[1][2][5][13][2][2]
  113.   vXY = value(gXMLReader.PList[1][2][5][13][3][2])
  114.   vPage = value(gXMLReader.PList[1][2][5][13][4][2])
  115.   vSmall = gXMLReader.PList[1][2][5][13][5][2]
  116.   vCastLib = gXMLReader.PList[1][2][5][13][6][2]
  117.   vDownload = gXMLReader.PList[1][2][5][13][7][2]
  118.   vKeyNum = 1
  119.   vTempCount = vTempCount + 1
  120.   vPhotoSprite = vPhotoSprite + 1
  121.   vRectSprite = vRectSprite + 1
  122.   vPushPinSprite = vPushPinSprite + 1
  123.   gNotes.pCreditsCastName = vSmall
  124.   vLarge = EMPTY
  125.   add(gMaster.pSummaryList, new(script("Summary Parent"), vTempCount, vType, vXY, vPage, vSmall, vCastLib, vDownload, vPhotoSprite, vRectSprite, vPushPinSprite, vKeyNum, vLarge))
  126.   vType = gXMLReader.PList[1][2][5][14][2][2]
  127.   vXY = value(gXMLReader.PList[1][2][5][14][3][2])
  128.   vPage = value(gXMLReader.PList[1][2][5][14][4][2])
  129.   vSmall = gXMLReader.PList[1][2][5][14][5][2]
  130.   vCastLib = gXMLReader.PList[1][2][5][14][6][2]
  131.   vDownload = gXMLReader.PList[1][2][5][14][7][2]
  132.   vKeyNum = 1
  133.   vTempCount = vTempCount + 1
  134.   vPhotoSprite = vPhotoSprite + 1
  135.   vRectSprite = vRectSprite + 1
  136.   vPushPinSprite = vPushPinSprite + 1
  137.   gNotes.pProductionCastNameSpanish = vSmall
  138.   vLarge = gNotes.pProductionFileNamePDFspanish
  139.   add(gMaster.pSummaryList, new(script("Summary Parent"), vTempCount, vType, vXY, vPage, vSmall, vCastLib, vDownload, vPhotoSprite, vRectSprite, vPushPinSprite, vKeyNum, vLarge))
  140.   vType = gXMLReader.PList[1][2][5][15][2][2]
  141.   vXY = value(gXMLReader.PList[1][2][5][15][3][2])
  142.   vPage = value(gXMLReader.PList[1][2][5][15][4][2])
  143.   vSmall = gXMLReader.PList[1][2][5][15][5][2]
  144.   vCastLib = gXMLReader.PList[1][2][5][15][6][2]
  145.   vDownload = gXMLReader.PList[1][2][5][15][7][2]
  146.   vKeyNum = 1
  147.   vTempCount = vTempCount + 1
  148.   vPhotoSprite = vPhotoSprite + 1
  149.   vRectSprite = vRectSprite + 1
  150.   vPushPinSprite = vPushPinSprite + 1
  151.   gNotes.pCreditsCastNameSpanish = vSmall
  152.   vLarge = gNotes.pCreditsFileNamePDFspanish
  153.   add(gMaster.pSummaryList, new(script("Summary Parent"), vTempCount, vType, vXY, vPage, vSmall, vCastLib, vDownload, vPhotoSprite, vRectSprite, vPushPinSprite, vKeyNum, vLarge))
  154.   vKeyNum = 0
  155.   vCount = gXMLReader.PList[1][2][5][16].count
  156.   repeat with r = 2 to vCount
  157.     vType = gXMLReader.PList[1][2][5][16][r][2][2]
  158.     vXY = value(gXMLReader.PList[1][2][5][16][r][3][2])
  159.     vPage = value(gXMLReader.PList[1][2][5][16][r][4][2])
  160.     vSmall = gXMLReader.PList[1][2][5][16][r][5][2]
  161.     vCastLib = gXMLReader.PList[1][2][5][16][r][6][2]
  162.     vDownload = gXMLReader.PList[1][2][5][16][r][7][2]
  163.     vTempCount = vTempCount + 1
  164.     vPhotoSprite = vPhotoSprite + 1
  165.     vRectSprite = vRectSprite + 1
  166.     vPushPinSprite = vPushPinSprite + 1
  167.     vKeyNum = vKeyNum + 1
  168.     vLarge = EMPTY
  169.     add(gMaster.pSummaryList, new(script("Summary Parent"), vTempCount, vType, vXY, vPage, vSmall, vCastLib, vDownload, vPhotoSprite, vRectSprite, vPushPinSprite, vKeyNum, vLarge))
  170.   end repeat
  171.   vKeyNum = 0
  172.   vCount = gXMLReader.PList[1][2][5][17].count
  173.   repeat with r = 2 to vCount
  174.     vType = gXMLReader.PList[1][2][5][17][r][2][2]
  175.     vXY = value(gXMLReader.PList[1][2][5][17][r][3][2])
  176.     vPage = value(gXMLReader.PList[1][2][5][17][r][4][2])
  177.     vSmall = gXMLReader.PList[1][2][5][17][r][5][2]
  178.     vCastLib = gXMLReader.PList[1][2][5][17][r][6][2]
  179.     vDownload = gXMLReader.PList[1][2][5][17][r][7][2]
  180.     vTempCount = vTempCount + 1
  181.     vPhotoSprite = vPhotoSprite + 1
  182.     vRectSprite = vRectSprite + 1
  183.     vPushPinSprite = vPushPinSprite + 1
  184.     vKeyNum = vKeyNum + 1
  185.     add(gMaster.pSummaryList, new(script("Summary Parent"), vTempCount, vType, vXY, vPage, vSmall, vCastLib, vDownload, vPhotoSprite, vRectSprite, vPushPinSprite, vKeyNum))
  186.   end repeat
  187. end
  188.  
  189. on mDoVideoSettings me
  190.   gMaster.pVideoSettings.videomode = gXMLReader.PList[1][2][6][2][2]
  191.   gMaster.pVideoSettings.videoname = gXMLReader.PList[1][2][6][3][2]
  192.   gMaster.pVideoSettings.xyvideo = value(gXMLReader.PList[1][2][6][4][2])
  193.   gMaster.pVideoSettings.videosprite = value(gXMLReader.PList[1][2][6][5][2])
  194.   gMaster.pVideoSettings.videopercentage = value(gXMLReader.PList[1][2][6][6][2])
  195.   gMaster.pVideoSettings.videocontroller = gXMLReader.PList[1][2][6][7][2]
  196. end
  197.  
  198. on mDoAudioSettings me
  199.   gSound.pBGSoundStatus = gXMLReader.PList[1][2][7][2][2]
  200.   gSound.pButtonStatus = gXMLReader.PList[1][2][7][3][2]
  201.   gSound.pBGSoundMember = gXMLReader.PList[1][2][7][4][2]
  202.   gSound.pBGSoundLooped = gXMLReader.PList[1][2][7][5][2]
  203.   gSound.pBGSoundChannel = value(gXMLReader.PList[1][2][7][6][2])
  204.   gSound.pButtonSoundMember = gXMLReader.PList[1][2][7][7][2]
  205.   gSound.pButtonSoundChannel = value(gXMLReader.PList[1][2][7][8][2])
  206. end
  207.  
  208. on mDoNotesSettings me
  209.   vSpriteNum = value(gXMLReader.PList[1][2][8][2][2])
  210.   vProdActive = gXMLReader.PList[1][2][8][3][2]
  211.   vCastActive = gXMLReader.PList[1][2][8][4][2]
  212.   vCreditsActive = gXMLReader.PList[1][2][8][5][2]
  213.   vFilmActive = gXMLReader.PList[1][2][8][6][2]
  214.   vProdName = gXMLReader.PList[1][2][8][7][2]
  215.   vCastName = gXMLReader.PList[1][2][8][8][2]
  216.   vCreditsName = gXMLReader.PList[1][2][8][9][2]
  217.   vFilmName = gXMLReader.PList[1][2][8][10][2]
  218.   vProdFileDOCe = gXMLReader.PList[1][2][8][11][2]
  219.   vProdFileDOCs = gXMLReader.PList[1][2][8][12][2]
  220.   vProdFilePDFe = gXMLReader.PList[1][2][8][13][2]
  221.   vProdFilePDFs = gXMLReader.PList[1][2][8][14][2]
  222.   vCreditsFileDOCe = gXMLReader.PList[1][2][8][15][2]
  223.   vCreditsFileDOCs = gXMLReader.PList[1][2][8][16][2]
  224.   vCreditsFilePDFe = gXMLReader.PList[1][2][8][17][2]
  225.   vCreditsFilePDFs = gXMLReader.PList[1][2][8][18][2]
  226.   vDownload = gXMLReader.PList[1][2][8][19][2]
  227.   vSide = gXMLReader.PList[1][2][8][20][2]
  228.   vVertLoc = value(gXMLReader.PList[1][2][8][21][2])
  229.   vHorzStartLoc = value(gXMLReader.PList[1][2][8][22][2])
  230.   vHorzFinishLoc = value(gXMLReader.PList[1][2][8][23][2])
  231.   vTabSprite = value(gXMLReader.PList[1][2][8][24][2])
  232.   gNotes = new(script("Notes Parent"), vSpriteNum, vProdActive, vCastActive, vCreditsActive, vFilmActive, vProdName, vCastName, vCreditsName, vFilmName, vProdFileDOCe, vProdFileDOCs, vProdFilePDFe, vProdFilePDFs, vCreditsFileDOCe, vCreditsFileDOCs, vCreditsFilePDFe, vCreditsFilePDFs, vDownload, vSide, vVertLoc, vHorzStartLoc, vHorzFinishLoc, vTabSprite)
  233. end
  234.  
  235. on mDoCaptionSettings me
  236.   gMaster.pCaption1 = gXMLReader.PList[1][2][9][2][2]
  237.   gMaster.pCaption2 = gXMLReader.PList[1][2][9][3][2]
  238.   gMaster.pCaption3 = gXMLReader.PList[1][2][9][4][2]
  239. end
  240.  
  241. on mDoPosterSettings me
  242.   gMaster.pPosterSettings.pushpin = gXMLReader.PList[1][2][10][2][2]
  243.   gMaster.pPosterSettings.rectangles = gXMLReader.PList[1][2][10][3][2]
  244.   gMaster.pPosterSettings.blendeffect = gXMLReader.PList[1][2][10][4][2]
  245.   gMaster.pPosterSettings.xyeffect = gXMLReader.PList[1][2][10][5][2]
  246.   gMaster.pPosterSettings.percenteffect = gXMLReader.PList[1][2][10][6][2]
  247.   gMaster.pPosterSettings.percentage = value(gXMLReader.PList[1][2][10][7][2])
  248.   gMaster.pPosterSettings.blendpercent = value(gXMLReader.PList[1][2][10][8][2])
  249.   gMaster.pPosterSettings.savedbutton = gXMLReader.PList[1][2][10][9][2]
  250.   gMaster.pPosterSettings.savebutton = gXMLReader.PList[1][2][10][10][2]
  251.   gMaster.pPosterSettings.pinoffset = value(gXMLReader.PList[1][2][10][11][2])
  252.   vCount = gXMLReader.PList[1][2][10][12].count
  253.   vTempCount = 0
  254.   gMaster.pPosterList = []
  255.   repeat with x = 1 to vCount
  256.     if x = 1 then
  257.       nothing()
  258.       next repeat
  259.     end if
  260.     vXY = value(gXMLReader.PList[1][2][10][12][x][2][2])
  261.     vSmall = gXMLReader.PList[1][2][10][12][x][3][2]
  262.     vLarge = gXMLReader.PList[1][2][10][12][x][4][2]
  263.     vSaveSprite = value(gXMLReader.PList[1][2][10][12][x][5][2])
  264.     vTempCount = vTempCount + 1
  265.     vRectSpriteP = gMaster.pRectangleSpriteStartNum - 1 + vTempCount
  266.     vPhotoSpriteP = gMaster.pPhotoSpriteStartNum - 1 + vTempCount
  267.     vPushPinSpriteP = gMaster.pPushPinSpriteStartNum - 1 + vTempCount
  268.     vCastLib = "assets"
  269.     add(gMaster.pPosterList, new(script("Poster Parent"), x - 1, vXY, vSmall, vLarge, vRectSpriteP, vPhotoSpriteP, vPushPinSpriteP, vSaveSprite, vCastLib))
  270.   end repeat
  271. end
  272.  
  273. on mDoLogoSettings me
  274.   gMaster.pLogoSettings.pushpin = gXMLReader.PList[1][2][15][2][2]
  275.   gMaster.pLogoSettings.rectangles = gXMLReader.PList[1][2][15][3][2]
  276.   gMaster.pLogoSettings.blendeffect = gXMLReader.PList[1][2][15][4][2]
  277.   gMaster.pLogoSettings.xyeffect = gXMLReader.PList[1][2][15][5][2]
  278.   gMaster.pLogoSettings.percenteffect = gXMLReader.PList[1][2][15][6][2]
  279.   gMaster.pLogoSettings.percentage = value(gXMLReader.PList[1][2][15][7][2])
  280.   gMaster.pLogoSettings.blendpercent = value(gXMLReader.PList[1][2][15][8][2])
  281.   gMaster.pLogoSettings.savedbutton = gXMLReader.PList[1][2][15][9][2]
  282.   gMaster.pLogoSettings.savebutton = gXMLReader.PList[1][2][15][10][2]
  283.   gMaster.pLogoSettings.pinoffset = value(gXMLReader.PList[1][2][15][11][2])
  284.   vCount = gXMLReader.PList[1][2][15][12].count
  285.   if vCount = 0 then
  286.     gMaster.pLogoList = []
  287.   else
  288.     vTempCount = 0
  289.     gMaster.pLogoList = []
  290.     repeat with x = 1 to vCount
  291.       if x = 1 then
  292.         nothing()
  293.         next repeat
  294.       end if
  295.       vXY = value(gXMLReader.PList[1][2][15][12][x][2][2])
  296.       vSmall = gXMLReader.PList[1][2][15][12][x][3][2]
  297.       vLarge = gXMLReader.PList[1][2][15][12][x][4][2]
  298.       vSaveSprite = value(gXMLReader.PList[1][2][15][12][x][5][2])
  299.       vTempCount = vTempCount + 1
  300.       vRectSpriteP = gMaster.pRectangleSpriteStartNum - 1 + vTempCount
  301.       vPhotoSpriteP = gMaster.pPhotoSpriteStartNum - 1 + vTempCount
  302.       vPushPinSpriteP = gMaster.pPushPinSpriteStartNum - 1 + vTempCount
  303.       add(gMaster.pLogoList, new(script("logo Parent"), x - 1, vXY, vSmall, vLarge, vRectSpriteP, vPhotoSpriteP, vPushPinSpriteP, vSaveSprite))
  304.     end repeat
  305.   end if
  306. end
  307.  
  308. on mDoExportSettings me
  309.   gMaster.pExportSettings.savetodesktop = gXMLReader.PList[1][2][11][2][2]
  310.   gMaster.pExportSettings.savetoharddrive = gXMLReader.PList[1][2][11][3][2]
  311.   gMaster.pExportSettings.captions = gXMLReader.PList[1][2][11][4][2]
  312.   gMaster.pExportSettings.notes = gXMLReader.PList[1][2][11][5][2]
  313.   gMaster.pExportSettings.posters = gXMLReader.PList[1][2][11][6][2]
  314. end
  315.  
  316. on mDoInternalFolders me
  317.   gMaster.pInternalFolders.qtfolder = gXMLReader.PList[1][2][12][2][2]
  318.   gMaster.pInternalFolders.docsfolder = gXMLReader.PList[1][2][12][3][2]
  319.   gMaster.pInternalFolders.imagesfolder = gXMLReader.PList[1][2][12][4][2]
  320.   gMaster.pInternalFolders.posterfolder = gXMLReader.PList[1][2][12][5][2]
  321.   gMaster.pInternalFolders.notesfolder = gXMLReader.PList[1][2][12][6][2]
  322.   gMaster.pInternalFolders.logosfolder = gXMLReader.PList[1][2][12][7][2]
  323. end
  324.  
  325. on mDoExternalFolders me
  326.   gMaster.pExternalFolders.masterfolder = gXMLReader.PList[1][2][13][2][2]
  327.   gMaster.pExternalFolders.docsfolder = gXMLReader.PList[1][2][13][3][2]
  328.   gMaster.pExternalFolders.imagesfolder = gXMLReader.PList[1][2][13][4][2]
  329.   gMaster.pExternalFolders.posterfolder = gXMLReader.PList[1][2][13][5][2]
  330.   gMaster.pExternalFolders.notesfolder = gXMLReader.PList[1][2][13][6][2]
  331.   gMaster.pExternalFolders.logosfolder = gXMLReader.PList[1][2][13][7][2]
  332. end
  333.  
  334. on mDoGalleries me
  335.   vCount = gXMLReader.PList[1][2][14].count
  336.   vTempFlash = 0
  337.   gMaster.pPhotoList = []
  338.   vTempCount = 0
  339.   vOldSavedPageNum = 0
  340.   repeat with x = 1 to vCount
  341.     if x = 1 then
  342.       nothing()
  343.       next repeat
  344.     end if
  345.     vTempCount2 = 0
  346.     vRectSpriteG = 0
  347.     vPhotoSpriteG = 0
  348.     vPushPinSpriteG = 0
  349.     vCount2 = gXMLReader.PList[1][2][14][x].count
  350.     vGalleryNumber = value(gXMLReader.PList[1][2][14][x][2][2])
  351.     vGalleryName = gXMLReader.PList[1][2][14][x][3][2]
  352.     vTitleGallery = gXMLReader.PList[1][2][14][x][4][2]
  353.     vTitleSlide = gXMLReader.PList[1][2][14][x][5][2]
  354.     vTitleSaved = gXMLReader.PList[1][2][14][x][6][2]
  355.     repeat with y = 7 to vCount2
  356.       vCount3 = gXMLReader.PList[1][2][14][x][y].count
  357.       repeat with z = 1 to vCount3
  358.         case z of
  359.           1:
  360.           2:
  361.             vXYGallery = value(gXMLReader.PList[1][2][14][x][y][z][2])
  362.           3:
  363.             vXYSlide = value(gXMLReader.PList[1][2][14][x][y][z][2])
  364.           4:
  365.             vXYSaved = value(gXMLReader.PList[1][2][14][x][y][z][2])
  366.           5:
  367.             vXYFlash = value(gXMLReader.PList[1][2][14][x][y][z][2])
  368.           6:
  369.             vSavedPageNum = value(gXMLReader.PList[1][2][14][x][y][z][2])
  370.             if vSavedPageNum > vOldSavedPageNum then
  371.               vTempCount3 = 0
  372.             end if
  373.             vOldSavedPageNum = vSavedPageNum
  374.           7:
  375.             vSmallName = gXMLReader.PList[1][2][14][x][y][z][2]
  376.           8:
  377.             vlargeName = gXMLReader.PList[1][2][14][x][y][z][2]
  378.           9:
  379.             vOKtoDownload = gXMLReader.PList[1][2][14][x][y][z][2]
  380.           10:
  381.             vEnglishCaption = gXMLReader.PList[1][2][14][x][y][z][2]
  382.           11:
  383.             vSpanishCaption = gXMLReader.PList[1][2][14][x][y][z][2]
  384.           otherwise:
  385.             put "houston you have a problem"
  386.         end case
  387.       end repeat
  388.       vTempCount = vTempCount + 1
  389.       vTempCount2 = vTempCount2 + 1
  390.       vTempCount3 = vTempCount3 + 1
  391.       vTempFlash = vTempFlash + 1
  392.       vFlashLabel = vTempFlash
  393.       vRectSpriteG = gMaster.pRectangleSpriteStartNum - 1 + vTempCount2
  394.       vPhotoSpriteG = gMaster.pPhotoSpriteStartNum - 1 + vTempCount2
  395.       vPushPinSpriteG = gMaster.pPushPinSpriteStartNum - 1 + vTempCount2
  396.       vRectSpriteS = gMaster.pRectangleSpriteStartNum - 1 + vTempCount3
  397.       vPhotoSpriteS = gMaster.pPhotoSpriteStartNum - 1 + vTempCount3
  398.       vPushPinSpriteS = gMaster.pPushPinSpriteStartNum - 1 + vTempCount3
  399.       add(gMaster.pPhotoList, new(script("Photo Parent"), vGalleryNumber, vTempCount, vGalleryName, vXYGallery, vXYSlide, vXYSaved, vXYFlash, vSavedPageNum, vSmallName, vlargeName, vFlashLabel, vTitleGallery, vTitleSlide, vTitleSaved, vRectSpriteG, vPhotoSpriteG, vPushPinSpriteG, vRectSpriteS, vPhotoSpriteS, vPushPinSpriteS, vOKtoDownload, vEnglishCaption, vSpanishCaption))
  400.     end repeat
  401.   end repeat
  402. end
  403.  
  404. on mDoGalleryToSummary me
  405.   vCount = gMaster.pPhotoList.count
  406.   vTempCount = gMaster.pSummaryList.count
  407.   vAddNum = vTempCount
  408.   repeat with x = 1 to vCount
  409.     vType = "photo"
  410.     vXY = gMaster.pPhotoList[x].pXYSaved
  411.     vPage = gMaster.pPhotoList[x].pSavedPage
  412.     vSmall = gMaster.pPhotoList[x].pSmallName
  413.     vLarge = gMaster.pPhotoList[x].pLargeName
  414.     vCastLib = gMaster.pMediumCastLib
  415.     vDownload = gMaster.pPhotoList[x].pOKtoDownload
  416.     vPhotoSprite = gMaster.pPhotoList[x].pPhotoSpriteSaved + vAddNum
  417.     vRectSprite = gMaster.pPhotoList[x].pRectSpriteSaved + vAddNum
  418.     vPushPinSprite = gMaster.pPhotoList[x].pPushPinSpriteSaved + vAddNum
  419.     gMaster.pPhotoList[x].pPhotoSpriteSaved = vPhotoSprite
  420.     gMaster.pPhotoList[x].pRectSpriteSaved = vRectSprite
  421.     gMaster.pPhotoList[x].pPushPinSpriteSaved = vPushPinSprite
  422.     vKeyNum = gMaster.pPhotoList[x].pPhotoNumber
  423.     vTempCount = vTempCount + 1
  424.     add(gMaster.pSummaryList, new(script("Summary Parent"), vTempCount, vType, vXY, vPage, vSmall, vCastLib, vDownload, vPhotoSprite, vRectSprite, vPushPinSprite, vKeyNum, vLarge))
  425.   end repeat
  426.   repeat with x = 1 to gMaster.pSummaryList.count
  427.     if gMaster.pSummaryList[x].pType = "photo" then
  428.       gMaster.pSummaryList[x].pCastLibSmall = gMaster.pSmallCastLib
  429.       next repeat
  430.     end if
  431.     gMaster.pSummaryList[x].pCastLibSmall = gMaster.pSummaryList[x].pCastLib
  432.   end repeat
  433. end
  434.  
  435. on mSetInputText me, theText
  436.   pInputText = theText
  437.   gMasterText = theText
  438. end
  439.  
  440. on mGetTextFile me, theURL
  441.   pOK = "no"
  442.   toMail = getNetText(theURL)
  443.   pNetID = getLatestNetID()
  444. end
  445.  
  446. on mGetTextFile2 me
  447.   mSetInputText(gXMLReader, member("XML-text").text)
  448.   pFinished = "yes"
  449. end
  450.  
  451. on mStartMeUp me
  452.   mGetTextFile2(gXMLReader)
  453. end
  454.  
  455. on mXMLTree me, theMember
  456.   mSetMasterList(gNodeWatcher, theMember)
  457.   mInitParser(gXMLReader, #parseString)
  458.   mParseString(gNodeWatcher, #parseString, theMember)
  459.   mStartRecursion(gXMLReader)
  460. end
  461.  
  462. on mStartRecursion me
  463.   mInitString(gNodeWatcher)
  464.   mProcessNode(gNodeWatcher)
  465.   mPrintTreeInfo(gNodeWatcher)
  466. end
  467.  
  468. on mInitParser me, WhatToParse
  469.   mSetMasterNode(gNodeWatcher, 1)
  470.   gParsedXML2 = new(script("xml.parser"))
  471.   case WhatToParse of
  472.     #parseString:
  473.       parsedData = parseString(gParsedXML2, WhatToParse)
  474.       if getError(gParsedXML2) = VOID then
  475.       else
  476.         exit
  477.       end if
  478.   end case
  479. end
  480.  
  481. on stepFrame me
  482.   if netDone(pNetID) then
  483.     if netError(pNetID) = "OK" then
  484.       mDeleteActor(me)
  485.       mGoTo2(gXMLReader)
  486.     else
  487.     end if
  488.   end if
  489. end
  490.  
  491. on mGoTo2 me
  492.   theText = netTextResult(pNetID)
  493.   gMasterText = string(theText)
  494.   mXMLTree(gXMLReader, gMasterText)
  495.   DoXMLXtra(gTypes)
  496.   mParseTypesXML(gTypes)
  497.   pOK = "yes"
  498.   mProgress("Types XML has finished")
  499. end
  500.  
  501. on mStopUpDater me
  502.   pWhichOne = 0
  503.   return me
  504. end
  505.  
  506. on mAddActor me
  507.   add(the actorList, me)
  508. end
  509.  
  510. on mDeleteActor me
  511.   where = getOne(the actorList, me)
  512.   if where > 0 then
  513.     deleteAt(the actorList, where)
  514.   end if
  515. end
  516.